home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
tpega.zip
/
GPWINDOW.P
< prev
next >
Wrap
Text File
|
1986-01-20
|
901b
|
37 lines
{ }
{ EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01FEB86. }
{ (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518 }
{ }
{ Description: Set the current window coordinates. }
{ }
procedure GPWINDOW(X1,Y1,X2,Y2: Integer);
var
i: Integer;
begin
if X1 > X2 then
begin
i := X1;
X1 := X2;
X2 := i;
end;
if Y1 > Y2 then
begin
i := Y1;
Y1 := Y2;
Y2 := i;
end;
GDWD_X1 := X1;
GDWD_Y1 := Y1;
GDWD_X2 := X2;
GDWD_Y2 := Y2;
GDWD_X3 := X2 - X1 + 1;
GDWD_Y3 := Y2 - Y1 + 1;
GDW_FLG := True;
end;